home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
cmln1085.arc
/
NOVIX1
< prev
next >
Wrap
Text File
|
1986-02-27
|
2KB
|
53 lines
Novix Cut 1
Data Instruction(s) Data Stack Status:
Fetch (Forth) Before: After:
Opcode (Description)
(octal)
167100 @ where what
FetcΦ content≤ oµ to≡ ì
áááááááááááááááoµ stack.
164000 @ + incr,where what+incr
FetcΦá to≡á oµá stacδ ì
ááááááááááááááá(where⌐á anΣ adΣá inì
ááááááááááááááácrement(incr).
164200 @ +c incr,where what+incr+carry
FetcΦá wherσ anΣá adΣ ì
áááááááááááááááincremen⌠á anΣá carr∙ ì
ááááááááááááááábit.
162000 @ - decr,where what-decr
FetcΦ wherσ anΣá subì
ááááááááááááááátrac⌠ decr.
166000 @ SWAP - amount,where amount-what è FetcΦ wherσ anΣá subì
ááááááááááááááátrac⌠á wha⌠á froφá aì
ááááááááááááááámount.
163000 @ OR amount,where amount OR what
áááááááááááááááFetcΦ where¼á O╥ witΦ ì
áááááááááááááááamount.
165000 @ XOR amount,where amount XOR what
áááááááááááááááFetcΦ where¼ XO╥ witΦ ì
áááááááááááááááamount.
161000 @ AND amount,where amount AND what
áááááááááááááááFetcΦ where¼ AN─ witΦ ì
áááááááááááááááamount.
1647nn DUP @ SWAP nn + where what,where+nn
Incrementing fetch
1627nn DUP @ SWAP nn - where what,where-nn
Decrementing fetch
Data
Store
Opcode
(octal)
177000 ! what,where ...
áááááááááááááááStorσáááá wha⌠áááá a⌠ ì
ááááááááááááááálocation where.
177100 OVER SWAP ! what,where what
Non-destructive store
1747nn SWAP OVER ! nn + what,where where+nn
áááááááááááááááIncrementinτ store
1727nn SWAP OVER ! nn - what,where where-nn